home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / text_string.sim < prev    next >
Encoding:
Text File  |  1989-03-29  |  245 b   |  12 lines  |  [TEXT/MPS ]
  1. %     text_string
  2. % Routine to convert a SIMULA text to a Mac Pascal type str255
  3. %
  4.     text procedure text_string(t); text t;
  5.     begin
  6.         text temp;
  7.         temp:-blanks(256);
  8.         temp.putchar(char(t.length));
  9.         temp.sub(2,255):=t;    
  10.         text_string:-temp
  11.     end;
  12.